<% university_id = request ("university_id") ' response.write university_id Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver=Microsoft Access Driver (*.mdb); DBQ=" & server.mappath("apheit_data.mdb") sql_cmd1 = "SELECT * FROM university WHERE university_id = " & university_id sql_cmd2 = "SELECT * FROM sub_president WHERE university_id = '" & university_id & "'" sql_cmd3 = "SELECT * FROM dean WHERE university_id = '" & university_id & "'" sql_cmd4 = "SELECT * FROM u_contact WHERE university_id = '" & university_id & "'" Set Rs1 = Server.CreateObject("ADODB.RecordSet") Set Rs2 = Server.CreateObject("ADODB.RecordSet") Set Rs3 = Server.CreateObject("ADODB.RecordSet") Set Rs4 = Server.CreateObject("ADODB.RecordSet") Rs1.Open sql_cmd1, Conn, 0, 3 Rs2.Open sql_cmd2, Conn, 0, 3 Rs3.Open sql_cmd3, Conn, 0, 3 Rs4.Open sql_cmd4, Conn, 0, 3 If Not Rs1.EOF Then %>
<%=Rs1.Fields("name")%>
ปีที่ก่อตั้งมหาวิทยาลัย : <%=Rs1.Fields("establish_year")%>
สถานที่ตั้งของมหาวิทยาลัย : <%=Rs1.Fields("location")%>
หมายเลขโทรศัพท์ : <%=Rs1.Fields("phone")%>
หมายเลขโทรสาร : <%=Rs1.Fields("fax")%>
E-Mail Address ของมหาวิทยาลัย : <%=Rs1.Fields("e_mail")%>

ชื่อผู้รับใบอนุญาตจัดตั้ง : <%=Rs1.Fields("establish_name")%>

นายกสภามหาวิทยาลัย : <%=Rs1.Fields("ceo_name")%>
อธิการบดี : <%=Rs1.Fields("president_name")%>

ชื่อ-ชื่อสกุล หมายเลขโทรศัพท์ และ e-mail address รองอธิการบดี
<% setcolor1 = "1" setcolor2 = "1" while not Rs2.EOF if setcolor1 = "1" then %> <%setcolor1="2" else%> <% setcolor1 = "1" end if Rs2.movenext wend%>
ผู้บริหาร
ชื่อ-ชื่อสกุล
โทรศัพท์
E-Mail Address
<%=Rs2.Fields("posision")%>
<%=Rs2.Fields("sub_president_name")%>
<%=Rs2.Fields("phone")%>
<%=Rs2.Fields("e-mail")%>
<%=Rs2.Fields("posision")%>
<%=Rs2.Fields("sub_president_name")%>
<%=Rs2.Fields("phone")%>
<%=Rs2.Fields("e-mail")%>

ชื่อ-ชื่อสกุล หมายเลขโทรศัพท์ และ E-mail address ของคณบดี
<%while not Rs3.eof if setcolor2 = "1" then%> <%setcolor2 = "2" else%> <% setcolor2="1" end if Rs3.movenext wend %>
คณบดี
ชื่อ-ชื่อสกุล
โทรศัพท์
E-Mail Address

<%=Rs3.Fields("dean_faculty")%>
<%=Rs3.Fields("dean_name")%>
<%=Rs3.Fields("phone")%>
<%=Rs3.Fields("e-mail")%>

<%=Rs3.Fields("dean_faculty")%>
<%=Rs3.Fields("dean_name")%>
<%=Rs3.Fields("phone")%>
<%=Rs3.Fields("e-mail")%>
ผู้รับผิดชอบด้านวิเทศสัมพันธ์ หมายเลขโทรศัพท์ และ E-mail Address : <%=Rs1.Fields("foreign_relations")%>
ผู้รับผิดชอบด้านประชาสัมพันธ์ หมายเลขโทรศัพท์ และ E-mail Address : <%=Rs1.Fields("pr")%>

สถานที่ตั้งของวิทยาเขต หมายเลขโทรศัพท์ และ E-mail Address : <%=Rs1.Fields("branch_office")%>
 

จำนวนนักศึกษา รวม <%=Rs1.Fields("total_student")%> คน
จำนวนนักศึกษาระดับปริญญาตรี <%=Rs1.Fields("total_bachelor_std")%> คน
จำนวนนักศึกษาระดับบัณฑิตศึกษา ปริญญาโท <%=Rs1.Fields("total_master_std")%> คน
ปริญญาเอก <%=Rs1.Fields("total_inter_std")%> คน
จำนวนนักศึกษาต่างชาติ <%=Rs1.Fields("total_inter_std")%> คน

  
จำนวนคณาจารย์รวม <%=Rs1.Fields("total_teacher")%> คน
จำนวนคณาจารย์คุณวุฒิปริญญาตรี <%=Rs1.Fields("total_bachelor_tec")%> คน
จำนวนคณาจารย์คุณวุฒิปริญญาโท <%=Rs1.Fields("total_master_tec")%> คน
จำนวนคณาจารย์คุณวุฒิปริญญาเอก <%=Rs1.Fields("total_docter_tec")%> คน		  
จำนวนเครื่องคอมพิวเตอร์ทั้งหมด <%=Rs1.Fields("total_computer")%> เครื่อง
ความกว้างช่องรับสัญญาณวงจรอินเตอร์เน็ต <%=Rs1.Fields("band_width")%> 		 
รายชื่อของสถาบันที่มีความร่วมมือทางวิชาการกับทางมหาวิทยาลัย :
<% While not Rs4.EOF response.write " - " & Rs4.Fields("ucontact_name") & "
" Rs4.movenext WEND %>

Copyright [c] 2001 By Siam University.
235 Petchkasem Road, Phasi-charoen, Bangkok 10160
Tel. (662) 457-0068 Fax. (662) 457-3982
e-mail : webmaster@siam.edu
<% end if %>